home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / System source / Imports < prev    next >
Text File  |  1993-06-07  |  2KB  |  65 lines
  1. \ imports for Yerk system modules
  2. \  1/12/84  cbd Seperated from Mod file
  3. \ 12/20/85  cdn Added Sort & Assembler
  4. \  6/23/86  cdn Added de'
  5. \  8/21/86  cdn Added Alert" & fcall
  6. \  6/01/90    rfl    added global/gtool and .sys/env
  7. \  9/26/90    rfl    added more imports to env
  8. \ 12/15/90    rfl    moved global to toolmod
  9. \  2/02/91    rfl    added envrec to env module
  10. \  6/11/91    rfl    added konstant module
  11. \ 10/26/91    rfl    added class hierarchy to util
  12. \  5/01/93  rfl removed mload and added outMod
  13. \  5/17/93    rfl    removed string call from clean1. Yerk.rsrc no longer needed.
  14.  
  15. FROM aboutMod    IMPORT{ About }
  16. FROM alertMod    IMPORT{ (al") alert! }
  17. FROM deMod         IMPORT{ (de) de' }        48 value deflgs
  18. FROM examMod    IMPORT{ Exam }
  19. FROM grepMod    IMPORT{ (grep) Grep }    4 value grflgs
  20. FROM iMod        IMPORT{ saveNuc Install }
  21. FROM indMod        IMPORT{ doInDlg doGrDlg doDeDlg }
  22. FROM logMod        IMPORT{ +file -file tofile }
  23. FROM printMod    IMPORT{ +print -print pinit pemit ptype pCR np }
  24. FROM qpMod        IMPORT{ qPrint }
  25. FROM sortMod    IMPORT{ sort }
  26. FROM Tool        IMPORT{ ASMcall fcall call global } 3 immediates
  27. FROM Util        IMPORT{ Dump .w Words objList .classes pat hc' hier }
  28. FROM env        IMPORT{ .sys hasColor hasFPU appleTalkOn getEnv }
  29. FROM konstantMod IMPORT{ konstant } immediate
  30. FROM docMod        IMPORT{ see marks srcname fm rl /// mforget findfmark }
  31.  
  32. FROM asmMod        IMPORT{ Asm endAsm :Code :mCode } Immediate
  33.  
  34. \ ( RC type -- ) frontender so module is not loaded if not needed
  35. : (al") smudge
  36.     over IF R (al") ELSE 2drop THEN
  37.     R c@ 1+ align R> + >R ;
  38.  
  39. \ ( RC type : str" -- )  Compile conditional alert box
  40. : Alert"
  41.     ?comp Compile (al") word" c@ 1+ Align allot
  42. ; Immediate
  43.  
  44. 4 X-Array Aact
  45. 'c abort 'c null 'c null 'c null put: Aact
  46.  
  47. \ Execute trap at IP on Return stack
  48. : (TRAP)    R> dup 2+ >R w@ Trap ;
  49.  
  50. \ Execute in line trap sequence: Axxx next,
  51. Create [trap]
  52.     $ 224c w,        \ move.l  a4,a1
  53.     $ d9fc w, 12 ,    \ add.l   #12,a4
  54.     $ 4ed1 w,        \ jmp     (a1)
  55.  
  56. :F dmp dump ;F    \ patch forward reference from Object
  57.  
  58. 'code Util -> modCode
  59.  
  60. 'c release -> growZone
  61.  
  62. \ additional cleanup for aborts
  63. : clean1   cleanup +curs ." Token=" ( type# 171 ( Token= ) here .name cr ;
  64. 'c clean1 -> abortVec
  65.